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FIG.25A 



MAIN SECTION. 
MAIN- START. 

MOVE 0 TO W-ERR- FLAG. 
IF IN-CODE NOT = 103 

GOTO NEXT-DATA-READ 
END-IF. 

PERFORM MASTER-MODIFY-SEC ". 
IF W-ERR- FLAG NOT = 0 

GOTO MAIN-END 
END-IF. 

NEXT-DATA-READ. 

PERFORM FILE-READ-SECT. 

MAIN-END. 

EXIT. ! 
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< section name= n MAIN M > 

<paragraph name-'MAIN- START'> 
<sequences num= ,, 4"> 
<move> 

<ref><constant value= M 0" type="int M /></ref> 
<def><var name= ,, W-ERR-FLAG r 7></def> 
</move> 
<if> 

<condition><expression> 
<var name= M IN - C0DE7> 
<comparison operator name= M NOT =7> 
<constant value="103" type= H int"/> 
</expression></condition> 
<then> 

<sequences num="1"> 
<goto> 

<target type="paragraph" 

nam e= f, N EXT- DATA- READ" 
section_name="MAIN7> 

</goto> 
</sequences> 
</then> 
</if> 

<perform external> 

<targef type="section M name="MASTER-MODIFY-SECT7> 
</perform external> 
<if> 

<condition><expression> 
<var name= H W-ERR-FLAG , 7> 
<comparison_operator name="NOT =7> 
<figurative_constant name= M ZER0'7> 
</expression></condition> 
<then> 

<sequences num="1"> 
<goto> 

<target type="paragraph" 
name="MAIN- tND" 
section_name="MAIN'7> 

</goto> 
</sequences> 
</then> 
</if> 
</sequences> 
</paragraph> 

<paragraph name= M N EXT- DATA -READ M > 
<sequences num="1 M > 
<perform_extemal> 

<target type= M section" name="FILE-READ-SECT7> 
</perform_external> 
</sequences> 
</paragraph> 

<paragraph name="MAIN-END n > 
<sequences num= M 1 H > 

<exit_sentence/> 
</sequences> 
</paragraph> 
</section> 
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FIG.27 



EXPRESSION OF 
VARIABLE DATA 1 




< var name="DATA17> 


ADDITION OF 
SIGNIFICANCE LEVEL 
1 TO VARIABLE DATA 
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< var name="DATA1 "jdata_priority="1 "t> 
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FIG.29 



MOVE 0 TO DATA1 . — 



SINCE SIGNIFICANCE 
LEVEL 1 IS ASSIGNED TO 
VARIABLE DATA 1 TO BE 
SUBSTITUTED, ADD 
SIGNIFICANCE LEVEL 1 OF 
STATEMENT 



< move 
> 

<ref> 

<constantvalue="0"type=" int "l> 

</ref> 
<def> 

<var name="DATA1" data_priority ="17> 
</def> 
</move> 



< mov ! statement_priority ="1"> 



e i . 

<ref> 

<constant value= ,, 0" type= M int 7> 

</ref> 
<def> 

<var name="DATA1" datajDriority = M 1"/> 
</def> 
</move> 
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FIG. 31 
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ACQUISITION OF 
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EXECUTION l/F 
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EXECUTE 



TABLE OF ORDER OF EX 
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NAME OF COMPUTER PROGRAM 
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ARRANGE_P2 
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TABLE OF ORDER OF EXECUTION 
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NAME OF COMPUTER PROGRAM 
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ARRANGE A1 
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FIG.33A 



NAME OF COMPUTER 
PROGRAM:AR_P1 


PROCESS NAME: SUMMARIZING OF 
READ-UNTIL 


TYPE: LOCAL 


NUMBER OF DEGREE 
OF PRIORITY: 100 





DESCRIPTION: 

IF A PROCESS AT THE END OF FILE OF "READ" STATEMENT MATCHES 
WITH SATISFYING OF "UNTIL" CONDITION, REPLACE CONDITION OF 
"UNTIL" BY TILL THE END OF FILE. DELETE PROCESS UP TO FILE END 
OF "READ" STATEMENT. 



EXAMPLE: 

READ INF AT END MOVE "END" TO FLAG . 
PERFORM ~ UNTIL FLAG = "END". 

READ INF. 

PERFORM ~ UNTIL AT FILE END INF. 



TAG <at_file_6nd> IS INSERTED IN PROCESS. 
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FIG.33B 



NAME OF COMPUTER 
PROGRAM :AR P2 


PROCESS NAME: DEVELOPMENT 
OF SECTION 


TYPE: LOCAL 


NUMBER OF DEGREE 
OF PRIORITY: 200 





DESCRIPTION: 

IF CONTENT OF SECTION IS SHORT, UP TO 3 ROWS AND IF IT IS 
CALLED WITHOUT ANY CONDITION IN ORIGIN OF CALLING (HIGHER 
RANK SECTION), DEVELOP CONTENT OF SECTION SUCH THAT IT IS 
INCLUDED IN HIGHER RANK SECTION. 



EXAMPLE: 



PERFORM READ -SUB. 

READ - SUB SECTION. 
READ INF . 

EXIT. 



READ INF. 
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FIG.33C 



NAME OF COMPUTER 
PROG RAM :AR_P3 


PROCESS NAME: GROUP 
ITEMIZATION OF SUBSTITUTION 
(SUBSTITUTE) 


TYPE: LOCAL 


NUMBER OF DEGREE 
OF PRIORITY: 300 





DESCRIPTION: 

IF MOVE STATEMENT CONTINUES, ALL ITEMS OF ORIGIN OF 
SUBSTITUTION BELONG TO SAME GROUP ITEM, AND ALL ITEMS OF 
TARGET OF SUBSTITUTION BELONG TO SAME GROUP ITEM, REPLACE 
THEM TO SUBSTITUTE STATEMENT BY NAMES OF GROUP ITEMS. IF 
NOT ALL ITEMS IN GROUP ITEMS ARE ENUMERATED, ADD ATTRIBUTE 
THAT INDICATES BEING A PART OF THAT GROUP ITEM. 

EXAMPLE: 

MOVE IN- DATA 1 TO OUT-DATA 1. 
MOVE IN-DATA2 TO OUT-DATA1. 
(IN-DATA1, IN-DATA2 BELONG TO INR, 
OUT0DATA1 , OUT-DAT2 BELONG TO OUTR) 

j : 

MOVE INR TO OUTR. 
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FIG.33D 



NAME OF COMPUTER 
PROGRAM :AR_P4 


PROCESS NAME: DELETION OF 
STATEMENTS WITH LOW 
SIGNIFICANCE LEVEL 


TYPE: LOCAL 


NUMBER OF DEGREE 
OF PRIORITY: 400 





DESCRIPTION: 



(1) DELETE STATEMENT FOR WHICH statement priority IS 3. WHILE 
DELETING, REDUCE VALUE OF ATTRIBUTE qt OF PARENT TAG 
<sequence> OF TAG OF STATEMENT THAT IS TO BE DELETED BY 
NUMBER OF STATEMENTS THAT ARE DELETED, (qt INDICATES 
NUMBER OF STATEMENTS INSIDE). 



(2) WHILE DELETING, IF VALUE OF ATTRIBUTE qtOF <sequence> IS 0, 
DELETE SECTION, PARAGRAPH INCLUDING THE VALUE OR 
CONDITION STATEMENT (CONDITION AFTER IF, EVALUATE, READ). 



PERFORM (1) AND (2) REPEATEDLY TILL NUMBER OF 
STATEMENTS IN COMPUTER PROGRAM STOPS CHANGING. 
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FIG.33E 



NAME OF C 
PROGRAI\ 


OMPUTER I PROCESS NAME: DETECTION 
A:AR A1 I OF LOOP OF READ 


TYPE: OVERALL 


NUMBER OF DEGREE 
OF PRIORITY: 100 





DESCRIPTION: 

IF THERE IS A PROCESS OF FILE READING, A LOOP AFTER 
THE PROCESS OF FILE READING, AND IF A FILE IS READ AT 
THE END OF A PROCESS INSIDE THE LOOP, REPLACE IT TO 
'READ FILE REPEATEDLY TILL CONDITION OF LOOP IS 
SATISFIED'. IF LOOP IS A SECTION, DEVELOP IT TO A PART 
THAT IS CALLING THE SECTION. 

EXAMPLE: 



PROCESS 1 
READ INF. 

PERFORM SUB1 UNTIL CONDITION A. 
PROCESS 2 

i 

SUB1 SECTION. 
PROCESS 3 
READ INF. 
EXIT. 



PROCESS 1 
LOOP-READ INF UNTIL 
CONDITION A 

PROCESS 3 

END-LOOP-READ 

PROCESS 2 




SET A NEW 
STATEMENT. IN 
PROCESS, PREPARE 
<loop_read_file> TAG 
NEWLY. 
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FIG.33F 



NAME OF COMPUTER 
i PROGRAM :AR_A2 


PROCESS NAME: ENTRY OF 
i OVERALL NAME OF VARIABLE 


TYPE: OVERALL 


NUMBER OF DEGRE 
PRIORITY: 200 


E OF 





DESCRIPTION: 



EXPRESS ITEM NAME OF A VARIABLE WITH GROUP ITEM NAME ADDED TO 
IT. LINK BY USING "." BETWEEN THE NAMES. EXPRESS FROM THE 
HIGHEST GROUP ITEM NAME. 



FORMAT OF IN-RECORD.IN-DATA1 ETC. 
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FIG.34 



" MOVE 0 TO DATA1 . 



<move statement_priority ="1"> 
<ref> 

<constant value="0" type=" int 7> 

</ref> 
<def> 

<var name="DATA1" data_priority ="17> 
</def> 
</move> 



TEMPLATE 



< move> <ref>~(1)</ref> <def> ~ (2)</def> </move> 
SUBSTITUTE ~(1) FOR ~(2) 



< constant value=" - (3)" type=" int "/> 

INTEGER (~(3)) 



< var name=" ~ (4)"/> 
VARIABLE [-(4)] 



JAPANESE LANGUAGE STATEMENT TO BE CREATED 



SUBSTITUTE INTEGER (0) FOR VARIABLE [DATA1] 
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FIG.35A 



< loop_read_file > 

<file name=" ~ (1)"> 

<record> ~ (2)</record> 
</file> 

<until> ~ (3)</until> 
<sequences> ~ (4)</sequences> 
</ loop_read_file> 

READ RECORD FROM FILE ~(1) TO ~(2) AND PERFORM UP TO ~i 
REPEATEDLY. 

PERFORM FOLLOWING WHEN READ EVERY TIME 
~(4) 



< if> 

<condition> ~(1)</condition> 
<then><sequence> ~ (2)</sequence></then> 
<else><sequence> ~ (3)</sequence></else> 
</if> 



1 



IF CONDITION ~(1) IS SATISFIED, PERFORM FOLLOWING 
~(2) 



IF CONDITION ~(1) IS NOT SATISFIED, PERFORM FOLLOWING 

~(3) 



< write> 

<file name=" ~ (1)"> 

<record>~ (2)</record> 
</file> 
</write> 



WRITE RECORD ~(2) IN FILE ~(1). 
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FIG.35B 



< perform Jnternal > 
<condition> 
<varying> ~ (1)</varying> 
< varying_from >~(2)</varying_from> 
<by> ~ (3)</by> 
<until> ~ (4)</until> 
</condition> 

<sequences> ~~ (5)</sequences> 
</ perfonrHnternal > 

I 

PERFORM FOLLOWING REPEATEDLY TILL CONDITION ~(4) IS 
SATISFIED. WHILE PERFORMING, INCREASE ~(1) FROM ~(2) TO 
~(3) EVERY TIME. 
~(5) 



< move><ref part="on">~ (1)</ref><def> ~ (2)</def></move> 
SUBSTITUTE A PART OF ~(1) FOR ~(2) 



< at_end_file name="~(1)7> 

END OF FILE ~(1) 



< expression> ~ (1 )</expression> 
EXPRESSION ~(1) 



< comparison_operator name="~ (1)7> 

I 

~ (1) 



< constant value="~ (1)7> 
~ (1) 
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FIG.36 



IDENTIFICATION 

PROGRAM-ID. 

AUTHOR. 

ENVIRONMENT 

CONFIGURATION 

SOURCE-COMPUTER. 

OBJECT-COMPUTER. 



DIVISION. 

TESTSAMPLE. 

TARO.YAMADA. 

DIVISION. 

SECTION. 

VIRTUAL/HOST1. 

VIRTUAL/HOST1 . 



INPUT-OUTPUT 

FILE-CONTROL. 
SELECT INFILE 
SELECT OUTFILE 



IN OUT* 

SECTION. 



ASSIGN TO INFILE. 
ASSIGN TO OUTFILE. 



***************** qa"J"A DIVISION ********************** 
DATA DIVISION. 
FILE SECTION. 

***************** input FILE ' 
FD INFILE BLOCK 0 RECORDS. 
01 IN-RECORD. 



03 


MEMBERCODE 


PIC 9(5). 


03 


JOB-CODE 


PIC 9(3). 


03 


NAME. 




05 NAMEFAMLY 


PIC N(16). 




05 NAMEFIRST 


PIC X(16). 


03 


SEIBETSU 


PIC 9. 


03 


YUUBINBANGO. 






05 YUBIGCODE 


PIC 9(3). 




05 YUSMALLCODE. 


PIC 9(4). 


03 


TEL 


PIC X(14). 


03 


BIRTHDAY. 




05 BD-YEAR 


PIC 9(4). 




05 BD-MONTH 


PIC 9(2). 




05 B D-DAY 


PIC 9(2). 


03 


FAMILYDATA. 




05 F-MEMBER 


OCCURS 20. 




07 F-TYPE 


PIC 9(2). 




07 F-MEMBER-F 


PIC 9. 




07 F-CODE 


PIC 9(5). 


03 


FILLER 


PIC X(25). 



***************** OUTPUT p||_£ ***** 
FD OUTFILE BLOCK 0 RECORDS. 
01 OUT-RECORD. 

03 OUT-MEMBERCODE PIC 9(5). 

03 OUT-F-TYPE PIC 9(2). 

03 OUT-MEM-FLAG PIC 9. 

03 OUT-F-CODE PIC 9 ( 5 )- 

************ WORKING STORAGE ************************ 

WORKING-STORAGE SECTION. 
01 COUNTER-TABLE. 



03 IN-COUNT 
03 SKIP-COUNT 
03 PROC-COUNT 
03 OUT-COUNT 
01 I 
01 END-FLAG 



PIC S9(9) VALUE ZERO. 
PIC S9(9) VALUE ZERO. 
PIC S9(9) VALUE ZERO. 
PICS9(9) VALUE ZERO. 
PIC S9(4). 

PICX(03) VALUE SPACE. 



************* PROCEDURE DIVISION****"*********""*"******* 
PROCEDURE DIVISION. 

OPEN INPUT INFILE OUTPUT OUTFILE. 
DISPLAY % m COMPUTER PROGRAM START UPON CONSOLE. 

PERFORM READ-SECT. 
IF END-FLAG = "END" 

DISPLAY "## NOT EVEN ONE CAN READ RECORD." 

UPON CONSOLE 

DISPLAY "## ERROR ENDED." UPON CONSOLE 
STOP RUN 

END-IF. Ml 



PERFORM MAIN-SECT UNTIL END-FLAG = "END" 
CLOSE INFILE OUTFILE. 

DISPLAY "NUMBER OF OUTPUTS =[' OUT-COUNT"]" 
UPON CONSOLE. 

DISPLAY "ENDED NORMALLY." UPON CONSOLE. 
STOP RUN. 

************ READ ROUTINE ************************ 
READ-SECT SECTION. 
READ INFILE 

AT END MOVE "END" TO END-FLAG 
NOT AT END ADD 1 TO IN-COUNT 
END-READ. * 
READ-SECT-END X 
EXIT. [Z * 



*********** 



************ M Al N ROUTI N E 
MAIN-SECT SECTION. 

IF FAMILYDATA = ZERO 

ADD 1 TO SKIP-COUNT 
ELSE 

ADD 1 TO PROCCOUNT 
. PERFORM VARYING I FROM 1 BY 1 
UNTIL I > 20 
MEMBERCODE TO OUT-MEMBERCODE 
F-TYPE(I) TO OUT-F-TYPE 

F-MEMBER-F(I) TO OUT-F-MEM-FLAG 
F-CODE(I) TO OUT-F^CODE 
OUT-RECORD 
1 TO OUT-COUNT 



[3] 



MOVE 
MOVE 
MOVE 
MOVE 
k WRITE 
ADD 
END-PERFORM 
END-IF. 



PERFORM READ-SECT. 

MAIN-SECT-END. 
EXIT. 
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FIG. 38 



NAME OF COMPUTER 
PROGRAM: AR P1 



I 



NAME OF COMPUTER 
PROGRAM: AR P2 



I 



NAME OF COMPUTER 
PROGRAM: AR P3 



I 



NAME OF COMPUTER 
PROGRAM: AR P4 



I 



NAME OF COMPUTER 
PROGRAM: AR Al 



I 



NAME OF COMPUTER 
PROGRAM: AR A2 



V LOCAL PROCESS 



J 



V OVERALL PROCESS 
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FIG.39 



< loopjread_file statement_priority ="1"> 
<file name="INFILE"> 

<record>< var name="IN- RECORD" . data_priority ="37></record> 
</file> 

<until>< at_end_file name="INFILE"/></until> 
<sequences qt="2"> 
<if statement_priority ="2"> 
<condrtion> 
<expression> 

<var name="IN - RECORD . FAM I L YDATA" data_priority ="17> 
<comparison_operator name="=7> 
<constant value="ZER07> 
</expression> 
</condition> 
<else> 

<sequences qt="2"> 

< perform_internal statement_priority ="1"> 
<condition> 

<varying><var name=T data_priority ="17></varying> 
<varying_from><constant value="1" type-' int 7></varying_from > 

<by><constant value="1 " type=" int 7></by> 
<until> 

<expression> 
<var name=T data_priority ="17> 
<comparison_operat6r name="&gt ;7> 

<constant value="20 H type=" int 7> 
</expression> 
</until> 
</condition> 
<sequences qt="2"> 
<move statement_priority ="1 "> 

<ref part="on H >< var name="IN- RECORD" data_priority ="3"/></ref> 
<def>< var name="OUT- RECORD" data_priority ="27></def> 
</move> 

<write statement_priority ="1"> 
<file name="OUTFILE"> 

<record>< var name="OUT- RECORD" data_priority ="2"/></record> 
</file> 
</write> 
</sequences> 
</ performjnternal > 
</sequences> 
</else> 
</if> 
</sequences> 
</ loop_read_file> 
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FIG.41 



COMPUTER PROGRAM OUTLINE 



TIME AND DATE OF 
PREPARATION 



13:45. 11/07/2003 



NAME OF COMPUTER 
PROGRAM 


TESTSAMPLE 


FILE NAME 


TESTSAMPLE.COB 


COMMENT COLUMN I 















FILE INFORMATION 


I 


No. 


FILE NAME 


EXTERNAL NAME 


TYPE 


1. 


INFILE 


INFILE 


COBOL FILE 


2. 


OUTFILE 


OUTFILE 


COBOL FILE 



COMPUTER PROGRAM OUTLINE I 

READ RECORD FROM FILE "INFILE" TO VARIABLE "IN-RECORD" AND 
PERFORM REPEATEDLY TILL END OF FILE "INFILE". PERFORM 
FOLLOWING WHENEVER FILE IS READ. 

r IF CONDITION EXPRESSION [VARIABLE 
"IN-RECORD. FAMILYDATA"=ZERO] IS NOT SATISFIED, PERFORM 
FOLLOWING. 

r EXECUTE FOLLOWING REPEATEDLY TILL CONDITION 
EXPRESSION [VARIABLE ((20] IS SATISFIED. IN THIS CASE, GO 
ON INCREASING VARIABLE ( FROM 1 BY 1 EVERY TIME. 

T SUBSTITUTE A PART OF VARIABLE "IN-RECORD" FOR VARIABLE 
"OUT-RECORD". 

WRITE RECORD VARIABLE "OUT-RECORD" IN FILE "OUTILE". 

J 

J 

J 
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FIG.43 




ACQUIRE INTERPRETATION 
INFORMATION OF COMPUTER , 
PROGRAM THAT IS 
CALLED AT JOB-STEP 




i 

JUDGE AS 
'OUTPUT 



S41a 



JUDGE AS 'NO 



c 



± 



1 



S419 



END 
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FIG. 44 



S421 



S424 




S426 



S428 



Yes 



1 



END 



SHIFT TARGET JOB-STEP TO NEXT JOB-STEP |-S42a 
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FIG.45C 



START 



LET JOB-STEP AT WHICH INPUT 
FILE AS OVERALL IS READ BE 
TARGET JOB-STEP 



^S441 



, f S442 
IS JOB-STEP 
AT WHICH INPUT FILE IS 
READ IS UTILITY?. 



Yes 



r S443 



No 



IS THERE ONLY 
ONE OUTPUT FILE AT THAT. 
JOB-STEP? 

Yes 



LET JOB STEP AT WHICH THAT FILE 
IS INPUT BE TARGET JOB-STEP 
BETWEEN THAT JOB-STEP AND 1,0444 
JOB-STEP AT WHICH THAT FILE IS *° * 
DELETED OR BETWEEN THAT 
JOB-STEP AND END JOB-STEP 



<S445 

IS THERE 
"JOB-STEP THAT IS TARGET] 
JOB-STEP? 

Yes 



PERFORM UTILITY EXCLUSION 
PROCESS FOR RESPECTIVE 
JOB-STEPS 



1-S446 



LET RESULT 
BE EMPTY 



>IAS^\< S447 
, 'MAIN COMPUT- 
Yes PROGRAM NOT BEEN 

)BTAINED AT ALL TARGET^ 
JOB-STEPS? 



1 



S44a 



LET PROGRAM THAT 
HAS BEEN CALLED 
BY THAT JOB-STEP 
BE MAIN PROGRAM 



J-S449 



No 



PUT TOGETHER RESULT AT ALL 
TARGET STEPS AND LET IT BE 
MAIN COMPUTER PROGRAM 



1-S448 
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FIG.46 



///JOB01 JOB 

//STEP1 EXEC PGM=PR0GA 

//IN01 DD DSN=DENPYO01,DISP=SHR 

//OT01 DP pSN=W0RK1 , DISP=(NE W,PASS) 

^ ^AAA AA AA AAAAAAAAAA A AA AAAA AAA AA AA AAAAAAAAA 

//STEP2 EXEC PGM=SORT 

//SORTIN DD DSN=WORK1,DISP=(OLD, DELETE) 
//SORTOTJPDJPSIh^^ PASS) 

//STEP3 EXEC PGM=PR0GB 

//IN01 DD DSN=W0RK2,DISP=(0LD,DELETE) 

//OT01 DD DSN=SYUKEI1,DISP(NEW,PASS) 

j J AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

//STEP4 EXEC PGM=ENDMSG 
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FIG.48 



[INPUT] 
DENPY01 

[OUTPUT] 
SYUKEI1 

[MAIN PROGRAM] 

PROG A (NEW BILL EXTRACTION), 

PROG B (SUMMING PROCESS ON THAT DAY) 



53/71 




i 



54/71 




55/71 



FIG.51 



TRANSITION- 
ORIGIN SCREEN 


TRANSITION 
CONDITION 


TRANSITION- 
TARGET SCREEN 


CLASSIFICATION 
OF TRANSITION 
TARGET 


M05000 


SELECTION 
PROCESS = 1 


M05010 


SCREEN 


M05000 


SELECTION 
PROCESS = 2 


PG0001 


COMPUTER 
PROGRAM 
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FIG. 55 



START 



I 



ACQUIRE INFORMATION IN COMPUTER 
PROGRAM (NAME OF COMPUTER 
PROGRAM, NAME OF VARIABLE ETC.) 



Is611 



I 



BASED ON INFORMATION ACQUIRED, 
RETRIEVE SUPPLEMENTARY 
INFORMATION BY REFERRING TO 
DICTIONARY INFORMATION 



-S612 



S613 

IS CORRE- 
SPONDING SUPPLE- 
MENTARY INFORMATION. 
.ACQUIRED?. 



No 



Yes 



ADD SUPPLEMENTARY INFORMATION 
TO SUBROUTINE INFORMATION 



Js614 
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FIG.56 




CONVERT INFORMATION INTO TABULAR 

FORM AND STORE IN PROCESS- 
STRUCTURE INFORAMATION STORAGE 



ls621 




CLASSIFY NUMBER OF STATEMENTS 
IN SUBROUTINE INTO SEVEN VIZ. 
INPUT, OUTPUT, CALCULATION, 
SUBSTITUTION, CONDITION, CALL, 
OTHERS AND COUNT THEIR NUMBER. 



, 3 . 
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FIG.57A 



PROGRAM-ID PROGA 

" " PROCEDURE DIVISION »«««»*»»»»»«««»«*»*»»«« 
PROCEDURE DIVISION. 

OPEN INPUT INFILE. 

DISPLAY "## PROGRAM START ■ UPON CONSOLE. 

PERFORM READ- SECT. 
IF END- FLAG = "END" 

DISPLAY "## NOT EVEN ONE RECORD CAN BE READ." UPON CONSOLE 

DISPLAY "## ERROR IS ENDED. " UPON CONSOLE 

STOP RUN 
END- IF. 

PERFORM MAIN -SECT UNTIL END - FLAG = "END" 
CLOSE INFILE. 

DISPLAY "NUMBER OF OUTPUTS =f ' OUT-COUNT "]" UPON CONSOLE. 
DISPLAY "ENDED NORMALLY. " UPON CONSOLE. 

STOP RUN. 

************ READ ROUTINE — ***** ..«»..«.««.« 

READ -SECT SECTION. 
READ INFILE 

AT END MOVE "END" TO END - FLAG 
NOT AT END ADD 1 TO IN - COUNT 
END- READ. 
READ-SECT- END. 
EXIT. 

************ MAIN ROUTINE 
MAIN -SECT SECTION. 

IF FAMILYDATA = ZERO 

ADD 1 TO SKIP - COUNT 

ELSE 

ADD 1 TO PROC- COUNT 
PERFORM VARYING I FROM 1 BY 1 

UNTIL I > 20 OR F- MEMBER(I) = ZERO 
MOVE MEMBERCODE TO PARA1 - MEMBERCODE 
CALL PROGW USING PARA1 
ADD 1 TO OUT -COUNT 

END- PERFORM 
END- IF. 

PERFORM READ - SECT. 
MAIN-SECT- END. 
EXIT. 
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FIG.57B 



PROGRAM-ID PROGW 

************* PROCEDURE DIVISION ********** 
PROCEDURE DIVISION USING PARA1. 

OPEN OUTPUT OUTFILE. 

MOVE PARA1 TO OUT- RECORD. 

WRITE OUT- RECORD 

CLOSE OUTFILE. 

STOP RUN. 



READ ROUTINE ********* **** ***************** ***** * ** 
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FIG.60 




ACQUIRE NUMBER OF EXECUTION 
TIMES FOR EACH SUBROUTINE 
FROM EXECUTE LOG 



ls712 



FEED INFORMATION OF NUMBER 
OF EXECUTION TIMES OF 
SUBROUTINE TO EXECUTION 
INFORMATION INTEGRATOR 
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END 
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FIG.61 



START 



RECEIVE SUBROUTINE NAME 
AND NUMBER OF EXECUTION TIMES 
FROM EXECUTION LOG 
INFORMATION ANALYSER 
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I 



RETRIEVE CORRESPONDING 
SUBROUTINE NAME FROM PROCESS- 
STRUCTURE INFORMATION STORAGE 
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COLOR PART THAT DESCRIBES 
SUBROUTINE ACCORDING TO 
NUMBER OF EXECUTION TIMES 
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END 
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FIG.64 
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